From: Andrea Corallo <andcor03@e132096.arm.com>
Date: Fri, 1 Mar 2024 17:56:02 +0000 (+0100)
Subject: * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Define as var.
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2382
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=8b96503b6e8514f1f9f92895a0707c78b1bbd1fd;p=emacs.git

* lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Define as var.
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 30753bcd5c5..b2b921192ff 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -92,7 +92,7 @@ Each sublist is in the form (TYPE . DIRECT_SUBTYPES)"
      for child in children
      do (cl-pushnew parent (gethash child cl--direct-supertypes-of-type))))
 
-(defconst cl--typeof-types nil
+(defvar cl--typeof-types nil
   "Alist of supertypes.
 Each element has the form (TYPE . SUPERTYPES) where TYPE is one of
 the symbols returned by `type-of', and SUPERTYPES is the list of its